﻿
Namespace LightSwitchApplication

    Public Class ListCategory

        Private Sub Categories_SelectionChanged()
            changeDisplayName()
        End Sub

        Private Sub ListCategory_Saved()
            ' Write your code here.
            changeDisplayName()
        End Sub

        Sub changeDisplayName()
            Me.DisplayName = "Category : " & Categories.SelectedItem.CategoryName
        End Sub
    End Class

    

End Namespace
